﻿Imports System.Threading
Partial Public Class projekt_detail
    Inherits System.Web.UI.Page
    Private db As New hc_databaseDataContext
    Private projektid As Integer
    Private _nutzerID As Integer
    Dim funktionen As New stored_functions
    Private _projekt As Projekt
    Private _derzeitigerNutzer As Mitgliede_Anwaerter
    Private var2 As Array




    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        '   Dim db As hc_databaseDataContext = New hc_databaseDataContext
        Dim projektname = Request.QueryString("Name")

        Dim var = Integer.Parse(projektname)
        Session("projekt") = var
        projektid = var
        lbl_projektnummer.Text = projektid
        Label4.Text = projektid
        _nutzerID = Session("Userid")

        If IsPostBack = False Then
            AllgemeinTABladen()
            kundentabLaden()
            reportingTabladen()
            adminPLladen()
            adminPMladen()
            QMTabladen()
            TeamtabLaden()
            TabContainer1.ActiveTabIndex = 0
        Else
            '     TabContainer1.ActiveTabIndex = Session("aktivertab")
        End If
        nutzerrechte()

        'Dim wievielearbeiten = (From it In db.Arbeitet_ans _
        '                       Where it.ProjektID = projektid _
        '                       Select it.Mitgliede_AnwaerterID).ToList

        'Dim ds As New ArrayList()
        'Dim bblub As New DataTable
        'Dim mycolum As New DataColumn
        'mycolum = bblub.Columns.Add("Name")
        'mycolum = bblub.Columns.Add("Dauer")
        'Dim myrow As DataRow

        ''   For i = 0 To wievielearbeiten.Count - 1
        'For i = 0 To 1
        '    Dim bloo = wievielearbeiten(i)
        '    Dim bla = (From rep In db.Reports, ph In db.Phase, aa In db.Arbeitet_ans, mg In db.Mitgliede_Anwaerter _
        '              Where aa.ProjektID = projektid And mg.ID = bloo And _
        '              rep.PhasenID = ph.Id And ph.Projekt_ID = aa.ProjektID And aa.Mitgliede_AnwaerterID = mg.ID And rep.Mitgliede_AnwaerterID = bloo _
        '              Select rep.Dauer).Sum
        '    myrow = bblub.NewRow

        '    myrow("name") = bloo
        '    myrow("Dauer") = bla


        '    bblub.Rows.Add(myrow)


        'Next
        'Dim blaaa As New ArrayList
        'blaaa.Add("banane")

        'GridView3.DataSource = blaaa
        'GridView3.DataBind()
    End Sub
    Private Sub nutzerrechte()
        Dim var As String
        Dim bla = Integer.Parse(Session("userid"))
        Try
            var = (From it In db.Arbeitet_ans _
                      Where it.ProjektID = projektid _
                      And it.Mitgliede_AnwaerterID = Integer.Parse(Session("userid")) _
                      Select it.rolle).Single
        Catch
            var = "Nix"
        End Try
        Dim var2 As String
        Try
            var2 = (From it In db.Mitgliede_Anwaerter _
                        Where it.ID = Integer.Parse(Session("userid")) _
                        Select it.Mitgliedsstatus).Single
        Catch
            var2 = "nix"
        End Try
        '  tab_allgemein.enabled = False
        tab_AdminPL.Enabled = False
        tab_AdminPM.Enabled = False
        tab_AdminQM.Enabled = False

        tab_kunde.Enabled = False
        tab_reporting.Enabled = False

        Select Case var
            Case "JPM"
                tab_AdminPL.Enabled = True

                tab_kunde.Enabled = True
                tab_AdminPM.Enabled = True
            Case "PM"
                tab_AdminPL.Enabled = True

                tab_kunde.Enabled = True
                tab_AdminPM.Enabled = True
            Case "PL"
                tab_kunde.Enabled = True
                tab_reporting.Enabled = True
                tab_AdminPL.Enabled = True

            Case "Teammitglied"
                tab_kunde.Enabled = True
                tab_reporting.Enabled = True

        End Select

        Select Case var2
            Case "Vorstand"
                tab_AdminPL.Enabled = True

                tab_kunde.Enabled = True
                tab_AdminPM.Enabled = True
                tab_AdminQM.Enabled = True

            Case "Ressortleiter-QM"
                tab_AdminQM.Enabled = True

            Case "PM"

                tab_kunde.Enabled = True
                tab_AdminPM.Enabled = True

            Case "JPM"

                tab_kunde.Enabled = True
                tab_AdminPM.Enabled = True

        End Select
        Dim projektstatus = (From it In db.Projekts _
                    Where it.ID = projektid _
                    Select it.status).Single

        If IsPostBack = False Then

            If projektstatus <> "" Or Nothing Then
                dd_StatusProjekt.SelectedValue = projektstatus
            End If
        End If


    End Sub

    Private Sub laden()
        allesLeeren()
        adminPLladen()
        adminPMladen()
        AllgemeinTABladen()
        kundentabLaden()
        reportingTabladen()
        TeamtabLaden()

    End Sub
    Private Sub adminPLladen()

        Dim projekt5 = (From it In db.Projekts _
                        Where it.ID = projektid _
                        Select it).Single

        Try
            Dim angebot5 = (From it In db.Angebots _
                            Where it.ProjektID = projektid _
                            Select it).Single
            txt_tagessatz.Text = angebot5.Tagessatz

        Catch
            txt_tagessatz.Text = "300"
        End Try
        If projekt5.Abschluss_geplant.HasValue Then
            txt_geplanterAbschluss.Text = projekt5.Abschluss_geplant
        End If
        Dim anzeigeprozent As String
        Dim list As New ArrayList
        For i = 0 To 20
            Dim zahl = i * 5
            anzeigeprozent = zahl & "%"
            list.Add(anzeigeprozent)
        Next
        dd_aktuellerProjektstandProzent.DataSource = list
        dd_aktuellerProjektstandProzent.DataBind()
        Try
            Dim stand5 = (From it In db.Stands _
                          Where it.Projekt_ID = projektid _
                          Order By it.Datum _
                          Select it).ToList
            dd_aktuellerProjektstandProzent.SelectedItem.Text = stand5.Last.Projektstand & "%"
            txt_AktuellerProjektstandPL.Text = stand5.Last.Projektstandbesch
        Catch
        End Try


        Dim var = From ph In db.Phase, rp In db.Reports, mg In db.Mitgliede_Anwaerter _
                  Where ph.Projekt_ID = projektid And ph.Id = rp.PhasenID And rp.Mitgliede_AnwaerterID = mg.ID _
                  And rp.Dauer.HasValue _
Order By ph.Projektschritt, mg.Vorname, rp.Datum _
 _
        Select Name = mg.Vorname + " " + mg.Nachname, _
        Phase = ph.Bezeichnung, _
        Datum = rp.Datum.Day.ToString + "." + rp.Datum.Month.ToString + "." + rp.Datum.Year.ToString, _
        Taetigkeit = rp.Beschreibung, Dauer = rp.Dauer, _
        Angenommen = rp.Angenommen_pl

        'var2 = (From ph In db.Phase, rp In db.Reports, mg In db.Mitgliede_Anwaerter _
        'Where ph.Projekt_ID = projektid And ph.Id = rp.PhasenID And rp.Mitgliede_AnwaerterID = mg.ID _
        'And rp.Dauer.HasValue _
        'Order By ph.Projektschritt, mg.Vorname, rp.Datum _
        'Select rp).ToArray


        '   Session("report") = var2



        gv_reporting_pl.AutoGenerateSelectButton = True
        gv_reporting_pl.AutoGenerateDeleteButton = True
        gv_reporting_pl.DataSource = var
        gv_reporting_pl.DataBind()


    End Sub

    Private Sub adminPMladen()


        Dim projekt5 = (From it In db.Projekts _
                       Where it.ID = projektid _
                       Select it).Single

        If projekt5.Dokumentation = True Then
            chk_PmProjektdokuDMS.Checked = True
        End If
        If projekt5.ErstpraesiDMS = True Then
            chk_PMerstpraesiDMS.Checked = True
        End If
        If projekt5.EndpraesiDMS = True Then
            chk_pmEndpraesiDMS.Checked = True
        End If
        If projekt5.KebDMS = True Then
            chk_PMKebDMS.Checked = True
        End If
        'If projekt5.KebAusgewertet = True Then
        '    chk_PMkebAusgewertet.Checked = True
        'End If
        If projekt5.Referenz = True Then
            chk_PMreferenz.Checked = True
        End If
        If projekt5.Rechnung_gestellt = True Then
            chk_PMrechnungGestellt.Checked = True
        End If
        If projekt5.Rechnung_beglichen = True Then
            chk_PMRechnungBeglichen.Checked = True
        End If

        If projekt5.Projektabschluss_intern.HasValue Then

            chk_PMprojektInternAbgeschlossen.Checked = True
        End If
        If projekt5.Projektabschluss_Extern.HasValue Then

            chk_PMprojektExternAbgeschlossen.Checked = True
        End If



        Dim var = From ph In db.Phase, rep In db.Reports _
                  Where ph.Projekt_ID = projektid And rep.PhasenID = ph.Id And rep.Angenommen_pl = True _
                  Select ph








    End Sub

    Private Sub reportingTabladen()

        Dim dt As DataTable = New DataTable
        Dim var = From ph In db.Phase, rp In db.Reports, mg In db.Mitgliede_Anwaerter _
                  Where ph.Projekt_ID = projektid And ph.Id = rp.PhasenID And rp.Mitgliede_AnwaerterID = mg.ID _
                  And rp.Angenommen_pl = True And mg.ID = _nutzerID _
                  Order By mg.Vorname _
 _
        Select Name = mg.Vorname + " " + mg.Nachname, _
        Phase = ph.Bezeichnung, _
        Datum = rp.Datum.Day.ToString + "." + rp.Datum.Month.ToString + "." + rp.Datum.Year.ToString, _
        Taetigkeit = rp.Beschreibung, Dauer = rp.Dauer

        GridView4.AutoGenerateSelectButton = False
        GridView4.DataSource = var
        GridView4.DataBind()

        Dim dt2 As DataTable = New DataTable
        Dim var3 = From ph In db.Phase, rp In db.Reports, mg In db.Mitgliede_Anwaerter _
                  Where ph.Projekt_ID = projektid And ph.Id = rp.PhasenID And rp.Mitgliede_AnwaerterID = mg.ID _
                  And rp.Angenommen_pl <> True And mg.ID = _nutzerID _
                  Order By mg.Vorname _
 _
        Select Name = mg.Vorname + " " + mg.Nachname, _
        Phase = ph.Bezeichnung, _
        Datum = rp.Datum.Day.ToString + "." + rp.Datum.Month.ToString + "." + rp.Datum.Year.ToString, _
        Taetigkeit = rp.Beschreibung, Dauer = rp.Dauer

        GridView5.DataSource = var3
        GridView5.DataBind()

        Dim var2 = From it In db.Phase _
                  Where it.Projekt_ID = projektid _
                  And it.Bezeichnung.Length > 0 _
                  Order By it.Projektschritt _
                  Select it.Bezeichnung

        dd_reportPhase.DataSource = var2
        dd_reportPhase.DataBind()
    End Sub
    Private Sub kundentabLaden()
        lbl_Kundenname.Text = _projekt.Kundes.Name
        lbl_kundenbeschreibung.Text = _projekt.Kundes.Kurzbeschreibung
        lbl_KundenBranche.Text = _projekt.Kundes.Branche
        lbl_Kundenhompage.Text = _projekt.Kundes.Hompage
        lbl_KundenLand.Text = _projekt.Kundes.Land
        lbl_KundenOrt.Text = _projekt.Kundes.Ort
        lbl_KundenPostlz.Text = _projekt.Kundes.Postleitzahl
        lbl_KundenStraße.Text = _projekt.Kundes.Strasse_hausnummer

        Dim ansprechpartner = (From it In db.Ansprechpartners _
                             Where _projekt.AnsprechpartnerID = it.ID _
                             Select it).Single


        lbl_Ansprechtele.Text = ansprechpartner.Telefonnummer
        lbl_AnsprechEmail.Text = ansprechpartner.email
        lbl_AnsprechFax.Text = ansprechpartner.Fax
        lbl_AnsprechName.Text = ansprechpartner.Vorname + " " + ansprechpartner.Nachname
    End Sub
    ' alle labels leeren um danach neu laden zu können

    Private Sub allesLeeren()
        'lbl_pm2.Text = ""
        'lbl_jpm2.Text = ""
        'lbl_pl2.Text = ""
        dd_TeilnehmerEntfernen.Items.Clear()
        dd_teilnehmerHinzu.Items.Clear()
        Dim tmliste As ArrayList = New ArrayList
        Dim tmliste2 As ArrayList = New ArrayList
        'tmliste.Add(tm11)
        'tmliste2.Add(tm12)
        'tmliste.Add(tm21)
        'tmliste2.Add(tm22)
        'tmliste.Add(tm31)
        'tmliste2.Add(tm32)
        'tmliste.Add(tm41)
        'tmliste2.Add(tm42)
        'tmliste.Add(tm51)
        'tmliste2.Add(tm52)
        'tmliste.Add(tm61)
        'tmliste2.Add(tm62)
        'tmliste.Add(tm71)
        'tmliste2.Add(tm72)
        For Each l As Label In tmliste
            l.Visible = False

        Next

        For Each l As Label In tmliste2
            l.Visible = False
            l.Text = ""
        Next

    End Sub
    Private Sub AllgemeinTABladen()


        _projekt = (From it In db.Projekts _
                  Where it.ID = projektid _
                  Select it).Single

        ' Hier ist alles für die ALLGEMEINUEBERSICHT

        lbl_Status.Text = _projekt.status
        lbl_beschreibung.Text = _projekt.Beschreibung
        lbl_branche.Text = _projekt.Kundes.Branche
        lbl_Kubeschreibung.Text = _projekt.Kundes.Kurzbeschreibung
        lbl_erstkontakt0.Text = _projekt.Startdatum_erstkontakt
        lbl_schema.Text = _projekt.Projektschema
        If _projekt.Abschluss_geplant.HasValue Then _
            lbl_geplanterAbschluss.Text = _projekt.Abschluss_geplant



        lbl_Kubeschreibung.Text = _projekt.Kundes.Kurzbeschreibung
        ' lbl_kunde.Text = _projekt.Kundes.Name
        lbl_PL0.Text = funktionen.VonProjektZuPL(projektid)
        lbl_PM.Text = funktionen.VonProjektZuPM(projektid)
        lbl_jpm.Text = funktionen.VonProjektzuJpm(projektid)
        lbl_projektname.Text = _projekt.Name
        lbl_standPL.Text = funktionen.aktuellerProjektstandPl(projektid)
        lbl_UmfangISTPT.Text = funktionen.gibIstumfangProjekt(projektid).ToString + " " + "PT"
        lbl_Teammitglieder0.Text = funktionen.VonProjektZuProjektteam(projektid)
        lbl_umfangPT.Text = (funktionen.gibSollumfangProjekt(projektid)).ToString + " " + "PT"
        lbl_standProzent.Text = Math.Round((funktionen.gibIstumfangProjekt(projektid) / funktionen.gibSollumfangProjekt(projektid)) * 100, 0).ToString + "%"
    End Sub
    Private Sub TeamtabLaden()


        'lbl_pm2.Text = funktionen.VonProjektZuPM(projektid)
        'lbl_jpm2.Text = funktionen.VonProjektzuJpm(projektid)
        'lbl_pl2.Text = funktionen.VonProjektZuPL(projektid)
        'Dim tmliste As ArrayList = New ArrayList
        'Dim tmliste2 As ArrayList = New ArrayList
        'tmliste.Add(tm11)
        'tmliste2.Add(tm12)
        'tmliste.Add(tm21)
        'tmliste2.Add(tm22)
        'tmliste.Add(tm31)
        'tmliste2.Add(tm32)
        'tmliste.Add(tm41)
        'tmliste2.Add(tm42)
        'tmliste.Add(tm51)
        'tmliste2.Add(tm52)
        'tmliste.Add(tm61)
        'tmliste2.Add(tm62)
        'tmliste.Add(tm71)
        'tmliste2.Add(tm72)


        'Dim var3 = (From it In db.Arbeitet_ans _
        '          Where it.ProjektID = projektid And it.rolle = "Teammitglied" _
        '            Select it.Mitgliede_Anwaerter).ToList

        'For i = 0 To var3.LongCount - 1

        '    Dim bla As Label = tmliste(i)
        '    Dim ble As Label = tmliste2(i)

        '    bla.Visible = True
        '    ble.Visible = True
        '    ble.Text = var3(i).Vorname + " " + var3(i).Nachname

        'Next


        ' Ab hier Admin PAnel
        If dd_TeilnehmerEntfernen.Items.Count = 0 Then
            For Each mg As Mitgliede_Anwaerter In funktionen.GibAlleProjektTeilnehmer(projektid)

                dd_TeilnehmerEntfernen.Items.Add(mg.Vorname + " " + mg.Nachname)


            Next
        End If
        Dim var5 = From it In db.Mitgliede_Anwaerter _
                   Select it Order By it.Nachname
        If dd_teilnehmerHinzu.Items.Count = 0 Then


            For Each mg As Mitgliede_Anwaerter In var5
                Dim item As ListItem = New ListItem
                item.Text = mg.Vorname + " " + mg.Nachname
                If dd_TeilnehmerEntfernen.Items.Contains(item) = False Then


                    dd_teilnehmerHinzu.Items.Add(mg.Vorname + " " + mg.Nachname)
                End If
            Next

        End If

    End Sub
    Private Sub QMTabladen()

        Dim projekt5 = (From it In db.Projekts _
                        Where it.ID = projektid _
                        Select it).Single
        'rechten checkboxen im qm tab
        If projekt5.Dokumentation = True Then
            chk_projDokuPM.Checked = True
        End If
        If projekt5.ErstpraesiDMS = True Then
            chk_ErstPraesiPM.Checked = True
        End If
        If projekt5.EndpraesiDMS = True Then
            chk_EndpraesiDMSPM.Checked = True
        End If
        If projekt5.KebDMS = True Then
            chk_KEBDMSPM.Checked = True
        End If
        If projekt5.KebAusgewertet = True Then
            chk_KebAusgewertetPM.Checked = True
        End If
        If projekt5.Referenz = True Then
            chk_ReferenzPM.Checked = True
        End If
        'linken checkboxen im QM TAB
        If projekt5.QMprojektdoku = True Then
            chk_projDokuQM.Checked = True
        End If
        If projekt5.QMerstpraesi = True Then
            chk_ErstPraesiQM.Checked = True
        End If
        If projekt5.QMendpraesi = True Then
            chk_EndpraesiDMSQM.Checked = True
        End If
        If projekt5.QMKebDMS = True Then
            chk_KEBDMSQM.Checked = True
        End If
        If projekt5.QMkebAusgewertet = True Then
            chk_KebAusgewertetQM.Checked = True
        End If
        If projekt5.QMreferenz = True Then
            chk_ReferenzQM.Checked = True
        End If

    End Sub


    Protected Sub btn_teilnehmerEntfernen_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btn_teilnehmerEntfernen.Click
        Dim funktionen As stored_functions = New stored_functions
        Dim vorname As String = funktionen.stringInVorundNachnameZerlegen(dd_TeilnehmerEntfernen.SelectedItem.Text)(0)
        Dim nachname As String = funktionen.stringInVorundNachnameZerlegen(dd_TeilnehmerEntfernen.SelectedItem.Text)(1)
        Dim var = (From it In db.Mitgliede_Anwaerter _
                  Where it.Vorname = vorname _
                  And it.Nachname = nachname _
                  Select it).Single
        Dim var2 = (From it In db.Arbeitet_ans _
                   Where it.Mitgliede_AnwaerterID = var.ID And it.ProjektID = projektid _
                   Select it).Single
        db.Arbeitet_ans.DeleteOnSubmit(var2)
        db.SubmitChanges()
        dd_TeilnehmerEntfernen.Items.Remove(vorname + " " + nachname)
        allesLeeren()
        AllgemeinTABladen()
        TeamtabLaden()
    End Sub

    Protected Sub btn_TeilnehmerHinzuSpeichern_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btn_TeilnehmerHinzuSpeichern.Click

        Dim mitarbeiter As Arbeitet_an = New Arbeitet_an
        mitarbeiter.ProjektID = projektid
        Dim vorname As String = funktionen.stringInVorundNachnameZerlegen(dd_teilnehmerHinzu.SelectedItem.Text)(0)
        Dim nachname As String = funktionen.stringInVorundNachnameZerlegen(dd_teilnehmerHinzu.SelectedItem.Text)(1)

        Dim var = (From it In db.Mitgliede_Anwaerter _
                  Where it.Vorname = vorname _
                  And it.Nachname = nachname _
                  Select it).Single
        mitarbeiter.Mitgliede_Anwaerter = var
        mitarbeiter.rolle = dd_teilnehmerHinzuRolle.SelectedItem.Text
        db.Arbeitet_ans.InsertOnSubmit(mitarbeiter)
        db.SubmitChanges()
        dd_teilnehmerHinzu.Items.Add(dd_teilnehmerHinzu.SelectedItem)
        dd_teilnehmerHinzu.ClearSelection()
        allesLeeren()
        AllgemeinTABladen()
        TeamtabLaden()

    End Sub

    Protected Sub btn_reportHinzufuegen_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btn_reportHinzufuegen.Click


        Dim report1 As Report = New Report
        report1.Dauer = Double.Parse(txt_ReportDauer.Text)
        report1.Mitgliede_AnwaerterID = _nutzerID
        report1.Beschreibung = txt_ReportTaetigkeit.Text
        report1.Datum = txt_ReportDatum.Text
        report1.Angenommen_pl = False
        report1.projektid = projektid
        Dim test1 = dd_reportPhase.Text

        report1.PhasenID = (From it In db.Phase Where it.Bezeichnung = dd_reportPhase.Text And it.Projekt_ID.Value = projektid Select it.Id).Single
        db.Reports.InsertOnSubmit(report1)
        db.SubmitChanges()


        reportingTabladen()
        adminPLladen()
    End Sub




    Protected Sub btn_AngebotSpeichern_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btn_AngebotSpeichern.Click


        Dim phase5 As New Phase
        phase5.Projekt_ID = projektid

        db.Phase.InsertOnSubmit(phase5)
        db.SubmitChanges()
        Dim report1 As New Report
        report1.PhasenID = phase5.Id
        report1.Beschreibung = "leer_report"
        report1.Angenommen_pl = True
        db.Reports.InsertOnSubmit(report1)
        db.SubmitChanges()
        GridView1.DataBind()


    End Sub

    Protected Sub btn_aktueller_Projektstand_Speichern_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btn_aktueller_Projektstand_Speichern.Click

        Dim stand5 As New Stand
        stand5.Datum = Date.Now
        stand5.Projektstandbesch = txt_AktuellerProjektstandPL.Text
        stand5.Projektstand = dd_aktuellerProjektstandProzent.SelectedItem.Text.Trim("%")
        stand5.Projekt_ID = projektid
        db.Stands.InsertOnSubmit(stand5)
        db.SubmitChanges()

        laden()
    End Sub

    Protected Sub CheckBox1_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles chk_projDokuQM.CheckedChanged

    End Sub


    Protected Sub chk_projDokuQM0_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles chk_projDokuPM.CheckedChanged

    End Sub

    Protected Sub chk_ErstPraesiQM0_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles chk_ErstPraesiPM.CheckedChanged

    End Sub

    Protected Sub btn_PMAdminSpeichern_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btn_PMAdminSpeichern.Click

        Dim projekt5 = (From it In db.Projekts _
                   Where it.ID = projektid _
                   Select it).Single
        If chk_PmProjektdokuDMS.Checked = True Then
            projekt5.Dokumentation = True
        Else
            projekt5.Dokumentation = False
        End If
        If chk_PMerstpraesiDMS.Checked = True Then
            projekt5.ErstpraesiDMS = True
        Else
            projekt5.ErstpraesiDMS = False
        End If
        If chk_pmEndpraesiDMS.Checked = True Then
            projekt5.EndpraesiDMS = True
        Else
            projekt5.EndpraesiDMS = False
        End If
        If chk_PMKebDMS.Checked = True Then
            projekt5.KebDMS = True
        Else
            projekt5.KebDMS = False
        End If
        'If chk_PMkebAusgewertet.Checked = True Then
        '    projekt5.KebAusgewertet = True
        'Else
        '    projekt5.KebAusgewertet = False
        'End If
        If chk_PMreferenz.Checked = True Then
            projekt5.Referenz = True
        Else
            projekt5.Referenz = False
        End If
        If chk_PMrechnungGestellt.Checked = True Then
            projekt5.Rechnung_gestellt = True
        Else
            projekt5.Rechnung_gestellt = False
        End If
        If chk_PMRechnungBeglichen.Checked = True Then
            projekt5.Rechnung_beglichen = True
        Else
            projekt5.Rechnung_beglichen = False
        End If
        If chk_PMprojektInternAbgeschlossen.Checked = True Then
            projekt5.Projektabschluss_intern = Date.Now
        Else : projekt5.Projektabschluss_intern = Nothing
        End If
        If chk_PMprojektExternAbgeschlossen.Checked = True Then
            projekt5.Projektabschluss_Extern = Date.Now
        Else : projekt5.Projektabschluss_Extern = Nothing
        End If

        db.SubmitChanges()
        QMTabladen()
        adminPMladen()
    End Sub



    Protected Sub chk_PMRechnungBeglichen_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles chk_PMRechnungBeglichen.CheckedChanged

    End Sub

    Protected Sub chk_PMrechnungGestellt_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles chk_PMrechnungGestellt.CheckedChanged

    End Sub

    Protected Sub btn_QmTabSpeichern_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btn_QmTabSpeichern.Click

        Dim projekt5 = (From it In db.Projekts _
                        Where it.ID = projektid _
                        Select it).Single
        If chk_projDokuQM.Checked = True Then
            projekt5.QMprojektdoku = True
        Else
            projekt5.QMprojektdoku = False
        End If
        If chk_ErstPraesiQM.Checked = True Then
            projekt5.QMerstpraesi = True
        Else
            projekt5.QMerstpraesi = False
        End If
        If chk_EndpraesiDMSQM.Checked = True Then
            projekt5.QMendpraesi = True
        Else
            projekt5.QMendpraesi = False
        End If
        If chk_KEBDMSQM.Checked = True Then
            projekt5.QMKebDMS = True
        Else
            projekt5.QMKebDMS = False
        End If
        If chk_KebAusgewertetQM.Checked = True Then
            projekt5.QMkebAusgewertet = True
        Else
            projekt5.QMkebAusgewertet = False
        End If
        If chk_ReferenzQM.Checked = True Then
            projekt5.QMreferenz = True
        Else
            projekt5.QMreferenz = False
        End If
        db.SubmitChanges()
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click


        Dim angebot As New Angebot
        angebot.Tagessatz = txt_tagessatz.Text
        angebot.ProjektID = projektid
        db.Angebots.InsertOnSubmit(angebot)
        Dim proj5 = (From it In db.Projekts _
                     Where it.ID = projektid _
                       Select it).Single
        If txt_geplanterAbschluss.Text <> "" Then
            proj5.Abschluss_geplant = txt_geplanterAbschluss.Text
            db.SubmitChanges()
        End If

    End Sub


    Protected Sub gv_reporting_pl_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles gv_reporting_pl.SelectedIndexChanged

    End Sub


    Protected Sub SqlDataSource2_Selecting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceSelectingEventArgs) Handles SqlDataSource2.Selecting

    End Sub



    Protected Sub GridView1_SelectedIndexChanging1(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewSelectEventArgs) Handles gv_reporting_pl.SelectedIndexChanging

        Dim report1 As Report
        adminPLladen()
        Dim bla As Int16 = e.NewSelectedIndex
        report1 = var2(bla)

        report1.Angenommen_pl = True
        db.SubmitChanges()
        adminPLladen()
        reportingTabladen()

    End Sub

    Protected Sub btn_ProjektAbschliessen_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btn_ProjektAbschliessen.Click
        Dim var = (From it In db.Projekts _
                  Where it.ID = projektid _
                  Select it).Single

        var.Projektabschluss_intern = Date.Now

    End Sub

    Protected Sub GridView2_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles GridView2.SelectedIndexChanged

    End Sub

    Protected Sub TabContainer1_ActiveTabChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TabContainer1.ActiveTabChanged
        Session("aktiverTab") = TabContainer1.ActiveTabIndex
    End Sub





    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
        Dim var = (From it In db.Projekts _
                  Where it.ID = projektid _
                  Select it).Single

        var.status = dd_StatusProjekt.SelectedValue
        db.SubmitChanges()
    End Sub


    Protected Sub dd_teilnehmerHinzu_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles dd_teilnehmerHinzu.SelectedIndexChanged

    End Sub

    Protected Sub dd_StatusProjekt_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles dd_StatusProjekt.SelectedIndexChanged

    End Sub

    Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles GridView1.SelectedIndexChanged
        Session("viewindex") = 4
    End Sub

    Protected Sub txt_geplanterAbschluss_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles txt_geplanterAbschluss.TextChanged

    End Sub



    Protected Sub gv_reporting_pl_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles gv_reporting_pl.RowDeleting
        Dim report1 As Report
        adminPLladen()
        Dim bla As Int16 = e.RowIndex
        report1 = var2(bla)
        db.Reports.DeleteOnSubmit(report1)

        db.SubmitChanges()
        adminPLladen()
        reportingTabladen()

    End Sub

    Protected Sub RadGrid1_DeleteCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.DeleteCommand
        Dim bla As New stored_functions

        Dim vorname As String = bla.stringInVorundNachnameZerlegen(e.Item.Cells(2).Text)(0)
        Dim nachname As String = bla.stringInVorundNachnameZerlegen(e.Item.Cells(2).Text)(1)
        Dim var = (From rp In db.Reports, mg In db.Mitgliede_Anwaerter, ph In db.Phase _
                  Where rp.Mitgliede_AnwaerterID = mg.ID And rp.PhasenID = ph.Id _
                    And mg.Vorname = vorname And mg.Nachname = nachname _
                  And rp.Dauer = e.Item.Cells(3).Text And ph.Bezeichnung = e.Item.Cells(4).Text _
                  And rp.Datum = Date.Parse(e.Item.Cells(5).Text) And rp.Beschreibung = e.Item.Cells(6).Text _
                  Select rp).First


    End Sub

   
  
End Class